InterCD 2001 May/may_2001.iso/intercd/root/Multimedia/Image/^iShell/setup.exe/Main/ToolsTable.k

Text File | 2001-03-26 | 4.6 KB | 188 lines

module oASTablePlugin is cPlugin
has
    release Editor:
        GetIO()
            do
                result := oIOASTablePlugin;
            end;
    end;
end;

release Editor:

object oIOASTableLabel is "Table";

object oIOASTablePlugin is cIOPlugin
with
    AboutDialog is cUIAboutPluginDialog
    with
        HelpURL is "Modules/Table.htm";
        Label is oIOASTableLabel;
        Text is "Table element and command.";
    end;
    MenuItems is [
        cIOASTableOpMenuItem with Name is "Append Column"; Value is oASAppendColumnOp; end,
        cIOASTableOpMenuItem with Name is "Append Row"; Value is oASAppendRowOp; end,
        cIOASTableOpMenuItem with Name is "Count Columns"; Value is oASCountColumnsOp; end,
        cIOASTableOpMenuItem with Name is "Count Rows"; Value is oASCountRowsOp; end,
        cIOASTableOpMenuItem with Name is "Delete All Columns"; Value is oASDeleteAllColumnsOp; end,
        cIOASTableOpMenuItem with Name is "Delete All Rows"; Value is oASDeleteAllRowsOp; end,
        cIOASTableOpMenuItem with Name is "Delete Column"; Value is oASDeleteColumnOp; end,
        cIOASTableOpMenuItem with Name is "Delete Row"; Value is oASDeleteRowOp; end,
        cIOASTableOpMenuItem with Name is "Find First Row"; Value is oASFindFirstRowOp; end,
        cIOASTableOpMenuItem with Name is "Find Last Row"; Value is oASFindLastRowOp; end,
        cIOASTableOpMenuItem with Name is "Find Next Row"; Value is oASFindNextRowOp; end,
        cIOASTableOpMenuItem with Name is "Find Previous Row"; Value is oASFindPreviousRowOp; end,
        cIOASTableOpMenuItem with Name is "Get Cell Value"; Value is oASGetCellOp; end,
        cIOASTableOpMenuItem with Name is "Get Column Name"; Value is oASGetColumnNameOp; end,
        cIOASTableOpMenuItem with Name is "Insert Column At"; Value is oASInsertColumnOp; end,
        cIOASTableOpMenuItem with Name is "Insert Row At"; Value is oASInsertRowOp; end,
        cIOASTableOpMenuItem with Name is "Save"; Value is oASSaveMediaOp; end,
        cIOASTableOpMenuItem with Name is "Set Cell Value"; Value is oASSetCellOp; end,
        cIOASTableOpMenuItem with Name is "Set Column Name"; Value is oASSetColumnNameOp; end
    ];
    ElementLines is [
        cIOSeedListLine
        with
            Label is oIOSpecialLabel;
            Lines is [
                cIOSeedLine with IO is oIOASTable; end
            ];
        end
    ];
    CommandLines is [
        cIOSeedListLine
        with
            Label is oIOSpecialLabel;
            Lines is [
                cIOSeedLine with IO is oIOASTableCommand; end
            ];
        end
    ];
    Openers is [
        oASTableOpener
    ];
end;

object oASTableOpener is cMediaOpener
has
    ChangeAttributes(theRuntime, theLayout, theElement, thePath)
        do
            self.cMediaOpener:ChangeAttributes(theRuntime, theLayout, theElement, thePath);
        end;

    Register()
        do
            oTypeMap.Register(self, void, void, "tab");
        end;

with
    IO is oIOASTable;
end;

object oASAppendColumnOp is cASAppendColumnOp
with
    Value is 0;
end;

object oASAppendRowOp is cASAppendRowOp
with
end;

object oASCountColumnsOp is cASCountColumnsOp
with
    ValueRef is cLocalRef with Name is "result"; end;
end;

object oASCountRowsOp is cASCountRowsOp
with
    ValueRef is cLocalRef with Name is "result"; end;
end;

object oASDeleteAllColumnsOp is cASDeleteAllColumnsOp
with
end;

object oASDeleteAllRowsOp is cASDeleteAllRowsOp
with
end;

object oASDeleteColumnOp is cASDeleteColumnOp
with
    Column is 1;
end;

object oASDeleteRowOp is cASDeleteRowOp
with
    Row is 1;
end;

object oASFindFirstRowOp is cASFindFirstRowOp
with
    Column is 1;
    Op is oTestAnyEqualOpSeed;
    ValueRef is cLocalRef with Name is "result"; end;
end;

object oASFindLastRowOp is cASFindLastRowOp
with
    Column is 1;
    Op is oTestAnyEqualOpSeed;
    ValueRef is cLocalRef with Name is "result"; end;
end;

object oASFindNextRowOp is cASFindNextRowOp
with
    Column is 1;
    Op is oTestAnyEqualOpSeed;
    Row is cLocalRef with Name is "it"; end;
    ValueRef is cLocalRef with Name is "result"; end;
end;

object oASFindPreviousRowOp is cASFindPreviousRowOp
with
    Column is 1;
    Op is oTestAnyEqualOpSeed;
    Row is cLocalRef with Name is "it"; end;
    ValueRef is cLocalRef with Name is "result"; end;
end;

object oASGetCellOp is cASGetCellOp
with
    Row is 1;
    Column is 1;
    ValueRef is cLocalRef with Name is "result"; end;
end;

object oASGetColumnNameOp is cASGetColumnNameOp
with
    Column is 1;
    ValueRef is cLocalRef with Name is "result"; end;
end;

object oASInsertColumnOp is cASInsertColumnOp
with
    Column is 1;
    Value is 0;
end;

object oASInsertRowOp is cASInsertRowOp
with
    Row is 1;
end;

object oASSetCellOp is cASSetCellOp
with
    Row is 1;
    Column is 1;
    Value is 0;
end;

object oASSetColumnNameOp is cASSetColumnNameOp
with
    Column is 1;
    Value is "";
end;

end; -- release Editor